home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)abj.d64 / star trek (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  7KB  |  171 lines
  1. 10 POKE53280,0:POKE53281,0
  2. 20 GOTO100
  3. 60 GETA$:IFA$=""THEN60
  4. 70 RETURN
  5. 100 PRINT"[147][153]        STAR TREK INSTRUCTIONS
  6. 110 [153]"        TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
  7. 500 PRINT"[158]WELCOME TO THE UNITED FEDERATION OF
  8. 510 [153]"PLANETS. YOUR MISSION WILL BE TO SEEK
  9. 520 PRINT"OUT AND DESTROY ALL OF THE [150]KLINGONS[158]
  10. 530 [153]"BEFORE THE TIME LIMIT RUNS OUT.
  11. 540 PRINT"YOU WILL SEE COMMAND COME UP AS WELL
  12. 550 [153]"AS HEAR THE TONE INDICATING THAT
  13. 560 PRINT"YOU MUST INPUT A RESPONSE.
  14. 570 [153]"THE COMMANDS ARE:
  15. 580 PRINT"  1  [153] NAVIGATE[158] (SET COURSE)
  16. 590 [153]"  2   PRINTSHORT RANGE SCANSYS
  17. 600 PRINT"  3  [153] LONG RANGE SCAN[158]
  18. 610 [153]"  4   FIREPRINT PHASERSSYS
  19. 620 PRINT"  5   FIRE[153] PHOTON TORPEDOS [158]
  20. 630 [153]"  6   RAISE/LOWER PRINTSHIELD STRENGTHSYS
  21. 640 PRINT"  7  [153] DAMAGE CONTROL[158] REPORT
  22. 650 [153]"  8   ENABLE PRINTLIBRARY COMPUTERSYS
  23. 660 PRINT"  9   ENABLE [153]TRACTOR BEAM[158]
  24. 670 [141]60
  25. 700 [153]"LOADTO ACTIVATE ANY OF THE DEVICES ALL YOU
  26. 710 PRINT"NEED DO IS PRESS THE APPROPIATE NUMBER
  27. 720 [153]"KEY. FOR PRINTPHASERSSYS TYPE A 4.
  28. 730 PRINT"IF YOU MAKE AN ERROR YOU'LL GET A LIST
  29. 735 [153]"OF CORRECT INPUT PROCEDURES.
  30. 740 PRINT"THE GALAXY IS DIVIDED INTO A 9 BY 9
  31. 750 [153]"QUADRANT GRID AND EACH QUADRANT IS
  32. 760 PRINT"FURTHER DIVIDED INTO AN 8 BY 8 GRID
  33. 770 [153]"AFTER YOU HAVE BEEN ASSIGNED A STARTING
  34. 780 PRINT"POSITION YOU WILL SEE A [153]SHORT RANGE
  35. 790 [153]"SCANSYS OF YOUR PRESENT POSITION, AT THIS
  36. 800 PRINT"POINT THE SIMULATION HAS BEGUN.
  37. 810 [153]"TO PRINTNAVIGATESYS YOU WILL BE ASKED TO INPUT
  38. 820 PRINT"A DIRECTION. THE
  39. 830 [153]"COURSE IS IN A             4  3  2SYS
  40. 840 PRINT"CIRCULAR NUMERICAL          [205] [194] [206]
  41. 850 [153]"VECTOR ARRANGEMENT        5SYSANDAND(null)PEEK(null)ANDAND1SYS
  42. 860 PRINT"AS SHOWN. INTEGER OR         [206][194][205]
  43. 870 [153]"REAL VALUES MAY BE USED.    (null) PEEK (null)
  44. 880 PRINT"IE 1.5 IS BETWEEN 1 AND 2  6  7  8[158]
  45. 900 [141]60
  46. 1000 [153]"LOADFOR DISTANCE YOU WILL BE ASKED FOR WARP
  47. 1010 PRINT"FACTOR. YOU CAN INPUT ANY VALUE UP TO
  48. 1020 [153]"AND INCLUDING 8. WARP 1 WILL MOVE YOU
  49. 1030 PRINT"A ONE QUADRANT DISTANCE AS 5.5 WILL MOVE";
  50. 1040 PRINT"YOU 5 AND A HALF QUADRANTS.
  51. 1050 [153]"A BIT OF PRACTICE WILL HELP WITH THINGS.
  52. 1060 PRINT"THE REST OF THE DEVICES ARE STRAIGHT
  53. 1070 [153]"FORWARD AND WILL BE EXPLAINED IN THE
  54. 1080 PRINT"SIMULATION ITS SELF. YOU WILL NOTE THE
  55. 1090 [153]"PRINTPHOTON TORPEDOSSYS ARE AIMED IN THE SAME
  56. 1100 PRINT"WAY [153]NAVIGATE[158] IS SET.
  57. 1110 [153]"THERE IS ALSO A PRINTTRACTOR BEAMSYS WHICH
  58. 1120 PRINT"CAN BE USED TO PULL IN A [150]KLINGON[158] IF HIS
  59. 1130 [153]"POWER LEVELS ARE VERY LOW.
  60. 1140 PRINT"THE [153]COMPUTER[158] HAS 5 FUNCTIONS AND IF
  61. 1150 [153]"YOU PLAY WITH THEM YOU'LL PICK UP THEIR
  62. 1160 PRINT"USES FASTER THAN I CAN EXPLAIN THEM.
  63. 1170 [141]60
  64. 2000 [153]"LOADTHE PRINTCOMPUTER LIBRARYSYS AND PRINTLONG RANGE
  65. 2005 PRINT"SCAN[158] ARE COLOUR CODED DEPENDING ON
  66. 2010 [153]"WHAT OR WHO IS IN WHICH QUADRANT.
  67. 2030 PRINT"THE COLOURS IN ORDER OF PRIORITY ARE:
  68. 2035 [153]"  OPENBLUE    218  ENTERPRISESYS LOACTION
  69. 2040 PRINT"  [150]RED     316  KLINGONS[158] PRESENT
  70. 2050 [153]"  PRINT#GREY    014  STARBASESYS PRESENT
  71. 2060 PRINT"  [153]GREEN   002  [158]SAFE QUADRANT
  72. 2070 [153]"  SYSYELLOW  ***  UNKNOWN AREA
  73. 2080 PRINT"WHAT THE NUMBERS MEANS IS SIMPLE
  74. 2090 [153]"FOR EXAMPLE THE OPEN218SYS ABOVE INDICATES:
  75. 2100 PRINT"  TOTAL [150]KLINGONS[158]:[159] 2 [158]- TWO [150]KLINGONS[158]
  76. 2110 [153]" TOTAL PRINT#STARBASESSYS:OPEN 1 SYS- ONE PRINT#STARBASESYS
  77. 2120 PRINT"     TOTAL STARS:[159] 8 [158]- EIGHT STARS
  78. 2130 [153]"IF A QUADRANT SHOWS NO STARS THEN IT
  79. 2140 PRINT"INDICATES A [150]NEBULA[158]. SCANS CAN'T
  80. 2150 [153]"PENITRATE THE GAS CLOUD OF A DEFNEBULASYS.
  81. 2800 GOSUB60
  82. 3000 PRINT"[147]THE [153]SHORT RANGE SCAN[158] MAY CONTAIN SEVERAL";
  83. 3010 PRINT"DIFFERENT OBJECTS. FIRST THERE WILL
  84. 3020 [153]"ALWAYS BE AN ENTERPRISESYS (UNLESS YOU BLOW";
  85. 3030 [153]"UP). IF YOUR NOT IN A DEFNEBULASYS,YOU WILL
  86. 3040 PRINT"WILL SEE DISTANT AND CLOSE STARS. THE
  87. 3050 [153]"STARS ARE FOR SHOW ONLY BUT THE CLOSE
  88. 3060 PRINT"ONES WILL BLOCK TORPEDO FIRE AND
  89. 3070 [153]"STARSHIP MOVEMENT.
  90. 3080 PRINT"THERE MAY ALSO BE A VERY TINY OBJECT
  91. 3090 [153]"WHICH LOOKS LIKE A BRIGHT (DISTANT) STAR";
  92. 3100 [153]". DON'T GO NEAR THIS, IT'S A DEFSPACEMINESYS
  93. 3110 PRINT"WHICH CAN RUIN YOU SIMULATION.
  94. 3120 [153]"THE OTHER OBJECTS ARE JUST THE DEFKLINGONSSYS
  95. 3130 PRINT"AND A [152]STARBASE[158], BOTH OF WHICH ARE EASY
  96. 3140 [153]"TO INDENTIFY.
  97. 3150 PRINT"FUTURE VERSIONS MAY HAVE OTHER SHIPS
  98. 3160 [153]"OF UNKNOWN ORIGIN. PRINTTACTICAL SENSERSSYS WILL";
  99. 3170 [153]"PROBE THE SHIP OR OBJECT.
  100. 3500 GOSUB60
  101. 4000 PRINT"[147]IF YOU ARE IN A [150]NEBULA[158] YOU WILL JUST
  102. 4010 [153]"SEE THE ENTERPRISESYS SURROUNDED BY A GAS
  103. 4020 PRINT"CLOUD. THE [153]LONG RANGE SCAN[158],[153] LIBRARY
  104. 4030 [153]"COMPUTERSYS,PRINT PHASERSSYS,PRINTTRACTOR BEAMSYS ANDPRINT
  105. 4040 PRINT"SHIELDS[158] WILL NOT FUNCTION IN THIS
  106. 4045 [153]"CONDITION.
  107. 4050 PRINT"THE OBJECT WILL BE TO FIND THE [150]KLINGON[158],
  108. 4060 [153]"IF HE'S THERE AT ALL. TO SEE HIM YOU
  109. 4070 PRINT"HAVE TO MOVE THE ENTERPRISE[158] ALONG SIDE
  110. 4080 [153]"OF HIM. HE WILL FIRE RANDOMLY WITH HIS
  111. 4090 PRINT"TOPEDOES SO WATCH OUT, REMEMBER YOUR
  112. 4100 [153]"PRINTSHIELDSSYS ARE OUT.
  113. 4110 PRINT"LEAVE ALL [150]NEBULAS[158] TO THE END BECAUSE
  114. 4120 [153]"IT REALLY CUTS INTO TO STARDATE TIME.
  115. 4130 PRINT"FOR EVERY DECIMAL (WARP) MOVE, YOUR
  116. 4140 [153]"STARDATE IS INCREASED BY THE SAME AMOUNT";
  117. 4150 [153]"TO A MAXIMUM OF 1.
  118. 4800 GOSUB60
  119. 5000 PRINT"[147]IN THIS VERSION OF [153]STAR TREK[158] THE
  120. 5010 [153]"DEFKLINGONS SYSWILL MOVE FROM QUADRANT TO
  121. 5020 PRINT"QUADRANT AS THE ENTERPRISE[158] MOVES TO
  122. 5030 [153]"THE NEXT QUADRANT. HOWEVER THE DEFKLINGONSYS
  123. 5040 PRINT"WON'T MOVE IF THE FOLLOWING IS TRUE:
  124. 5050 [153]"1. THE DEFKLINGONSYS IS GUARDING A PRINT#STARBASESYS
  125. 5060 PRINT"2. WITHIN 1 QUADRANT OF THE ENTERPRISE[158]
  126. 5070 [153]"3. NO DEFKLINGONSYS CAN BE FOUND (TO MOVE)
  127. 5080 PRINT"4. LOST IN A [150]NEBULA[158]
  128. 5090 [153]"ONLY ONE DEFKLINGONSYS WILL MOVE AT A TIME
  129. 5100 PRINT"(THIS CAN BE INCREASED IF NEEDED).
  130. 5110 [153]"ALSO INCLUDED IS A FEATURE THAT REQUIRES";
  131. 5120 [153]"THE USE OF A JOYSTICK. IF THEPRINT LIBRARY
  132. 5130 PRINT"COMPUTER[158] MALFUNCTIONS BEFORE A DOCKING
  133. 5140 [153]"PROCEDURE THEN YOU WILL BE REQUIRED TO
  134. 5150 PRINT"FLY THE ENTERPRISE [158]INTO THE DOCKING
  135. 5160 [153]"BAY. PLEASE BE CAREFUL AS YOU CAN ONLY
  136. 5170 PRINT"TOUCH THE DOCKING BAY FOR 2 SECONDS, ANY";
  137. 5180 PRINT"LONGER AND THE SIMULATION IS OVER
  138. 5190 [153]"(THERE MAY BE MORE WORK DONE IN THIS
  139. 5200 PRINT"AREA).
  140. 5800 [141]60
  141. 6000 [153]"LOADYOU WILL NOTE THAT THE PRINTPHASERSSYS WILL
  142. 6010 PRINT"PASS THROUGH (OR AROUND) ALL THE
  143. 6020 [153]"OBJECTS ON THE PRINTSHORT RANGE SCANSYS. THIS
  144. 6030 PRINT"WILL BE CHANGED LATER.
  145. 6040 [153]"WHEN ADEF KLINGONSYS FIRES HE CAN'T HIT ANY
  146. 6050 PRINT"OF THE[150] SPACEMINES[158] OR OTHER [150]KLINGONS[158]
  147. 6060 [153]"SO DON'T BE CONFIDENT THAT HIS SHOT
  148. 6070 PRINT"WILL MISS YOU.
  149. 6080 [153]"THE REST OF THE INFORMATION CAN BE
  150. 6090 PRINT"PICKED UP AS YOU PLAY THE GAME. BUT
  151. 6100 [153]"BECAUSE OF THE DETAIL PUT INTO MOST OF
  152. 6110 PRINT"THE SYSTEMS, IT MAY TAKE A WHILE TO PICK";
  153. 6120 PRINT"UP HOW THEY WORK OR INTERACT WITH EACH
  154. 6130 [153]"OTHER. I MUST POINT OUT THAT MAJOR
  155. 6140 PRINT"CHANGES WERE MADE FROM THE ORIGINAL
  156. 6150 [153]"VERSION.
  157. 6160 PRINT"PLEASE WATCH FOR REALISM IN HOW THE
  158. 6170 [153]"SYSTEMS OPERATE.
  159. 6800 GOSUB60
  160. 9000 PRINT"[147]PLEASE DROP ME A LINE IF YOU HAVE ANY
  161. 9040 [153]"QUESTIONS OR IDEAS. I'LL BE HAPPY TO
  162. 9050 PRINT"SUPPLY A MORE DETAILED DESCRIPTION OF
  163. 9060 [153]"THE SYSTEMS IF YOU WRITE.
  164. 9090 PRINT"         GOOD LUCK CAPTAIN...[158]
  165. 9100 [153]"   ADAPTED BY DAVE NEALE
  166. 9110 PRINT"              P.O. BOX 1324
  167. 9120 [153]"              MEAFORD, ONTARIO
  168. 9130 PRINT"              N0H-1Y0
  169. 9140 [153]"              (519) 538-1758
  170. 9800 PRINT"LOAD";CHR$(34);"BOOT STAR TREK";CHR$(34);",8[145][145][145]"
  171.